home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / parse7.rexx < prev    next >
OS/2 REXX Batch file  |  1996-12-12  |  588b  |  34 lines
  1. /* GET INLINE FILENAME */
  2. call open(place, 'env:filequery')
  3. wher = readln(place)
  4.  
  5. lng = LENGTH(wher)
  6. x = lng - 2
  7. fileC = SUBSTR( wher , 2 , x )
  8. file = wher
  9.  
  10. parse var file ':' temp
  11. if temp="" then temp=x
  12. do forever
  13. parse var temp FileName '/' temp
  14. if temp ="" then break
  15. end
  16. soud = '<BGSOUND SRC="'
  17. soud2 = '" LOOP=INFINITE>'
  18. cap = '">'
  19. str1 = '<A HREF="'
  20. str2 = 'pics/'
  21. str3 = 'sounds/'
  22. str4 = '<IMG SRC="'
  23. ADDRESS 'AV.REXX'
  24. SETVAR ext FileName
  25. SETVAR INLN1 str1
  26. SETVAR endcap cap
  27. SETVAR pdir str2
  28. SETVAR sdir str3
  29. SETVAR INN str4
  30. SETVAR PATH2 fileC
  31. SETVAR SND1 soud
  32. SETVAR SND2 soud2
  33.  
  34.